﻿Public Class ucStudentHistory

    
    ''' <summary>
    ''' Loads classes attended by a student
    ''' </summary>
    Public Sub loadHistory(ByVal studentId As Integer)
        Me.grdStudentHistory.gpWhereclause = "studentid=" & studentId
        Me.grdStudentHistory.loadGrid()

    End Sub

    ''' <summary>
    ''' Clears list
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub clearHistory()

        Me.grdStudentHistory.DataSource = Nothing

    End Sub


End Class
